home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / T / TransSkel 3.11.sit / TransSkel v 3.11 / Auxiliary / SkelCmdPeriod.c < prev    next >
MacBinary  |  1994-02-20  |  2.4 KB  |  [TEXT/KAHL]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Feb 20 18:31:11 1994, modified Sun Feb 20 18:31:11 1994, creator Think C, type ASCII, 1425 bytes "SkelCmdPeriod.c" , at 0x611 696 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[KAHL]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 53 6b 65 6c 43 6d | 64 50 65 72 69 6f 64 2e |..SkelCm|dPeriod.|
|00000010| 63 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |c.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 05 91 00 | 00 02 b8 a9 8d a3 3f a9 |........|......?.|
|00000060| 8d a3 3f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..?.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e3 ec 00 00 |........|........|
|00000080| 2f 2a 0d 20 2a 20 53 6b | 65 6c 43 6d 64 50 65 72 |/*. * Sk|elCmdPer|
|00000090| 69 6f 64 2e 63 20 2d 2d | 20 46 69 67 75 72 65 20 |iod.c --| Figure |
|000000a0| 6f 75 74 2c 20 69 6e 20 | 61 6e 20 69 6e 74 65 72 |out, in |an inter|
|000000b0| 6e 61 74 69 6f 6e 61 6c | 6c 79 20 63 6f 6d 70 61 |national|ly compa|
|000000c0| 74 69 62 6c 65 20 77 61 | 79 2c 20 77 68 65 74 68 |tible wa|y, wheth|
|000000d0| 65 72 0d 20 2a 20 61 6e | 20 65 76 65 6e 74 20 69 |er. * an| event i|
|000000e0| 73 20 61 20 63 6f 6d 6d | 61 6e 64 2d 70 65 72 69 |s a comm|and-peri|
|000000f0| 6f 64 20 6b 65 79 20 65 | 76 65 6e 74 2e 0d 20 2a |od key e|vent.. *|
|00000100| 0d 20 2a 20 53 65 65 20 | 54 4e 20 54 45 20 32 33 |. * See |TN TE 23|
|00000110| 2c 20 49 6e 74 65 72 6e | 61 74 69 6f 6e 61 6c 20 |, Intern|ational |
|00000120| 43 61 6e 63 65 6c 6c 69 | 6e 67 2c 20 66 6f 72 20 |Cancelli|ng, for |
|00000130| 74 68 65 20 72 61 74 69 | 6f 6e 61 6c 65 20 6f 6e |the rati|onale on|
|00000140| 20 68 6f 77 20 74 68 69 | 73 20 77 6f 72 6b 73 2e | how thi|s works.|
|00000150| 0d 20 2a 2f 0d 0d 23 20 | 69 6e 63 6c 75 64 65 09 |. */..# |include.|
|00000160| 3c 53 63 72 69 70 74 2e | 68 3e 0d 0d 23 20 69 6e |<Script.|h>..# in|
|00000170| 63 6c 75 64 65 09 22 54 | 72 61 6e 73 53 6b 65 6c |clude."T|ransSkel|
|00000180| 2e 68 22 0d 0d 0d 23 20 | 64 65 66 69 6e 65 09 6b |.h"...# |define.k|
|00000190| 4d 61 73 6b 4d 6f 64 69 | 66 69 65 72 73 09 30 78 |MaskModi|fiers.0x|
|000001a0| 66 65 30 30 0d 23 20 64 | 65 66 69 6e 65 09 6b 4d |fe00.# d|efine.kM|
|000001b0| 61 73 6b 56 69 72 74 75 | 61 6c 4b 65 79 09 30 78 |askVirtu|alKey.0x|
|000001c0| 30 30 30 30 66 66 30 30 | 0d 23 20 64 65 66 69 6e |0000ff00|.# defin|
|000001d0| 65 09 6b 4d 61 73 6b 41 | 73 63 69 69 31 09 09 30 |e.kMaskA|scii1..0|
|000001e0| 78 30 30 66 66 30 30 30 | 30 0d 23 20 64 65 66 69 |x00ff000|0.# defi|
|000001f0| 6e 65 09 6b 4d 61 73 6b | 41 73 63 69 69 32 09 09 |ne.kMask|Ascii2..|
|00000200| 30 78 30 30 30 30 30 30 | 66 66 0d 23 20 64 65 66 |0x000000|ff.# def|
|00000210| 69 6e 65 09 70 65 72 69 | 6f 64 09 09 09 27 2e 27 |ine.peri|od...'.'|
|00000220| 0d 0d 0d 70 61 73 63 61 | 6c 20 42 6f 6f 6c 65 61 |...pasca|l Boolea|
|00000230| 6e 0d 53 6b 65 6c 43 6d | 64 50 65 72 69 6f 64 20 |n.SkelCm|dPeriod |
|00000240| 28 45 76 65 6e 74 52 65 | 63 6f 72 64 20 2a 65 76 |(EventRe|cord *ev|
|00000250| 74 29 0d 7b 0d 73 68 6f | 72 74 09 6b 65 79 43 6f |t).{.sho|rt.keyCo|
|00000260| 64 65 3b 0d 6c 6f 6e 67 | 09 76 69 72 74 75 61 6c |de;.long|.virtual|
|00000270| 4b 65 79 3b 0d 6c 6f 6e | 67 09 6b 65 79 43 49 64 |Key;.lon|g.keyCId|
|00000280| 3b 0d 6c 6f 6e 67 09 6b | 65 79 49 6e 66 6f 3b 0d |;.long.k|eyInfo;.|
|00000290| 6c 6f 6e 67 09 73 74 61 | 74 65 3b 0d 6c 6f 6e 67 |long.sta|te;.long|
|000002a0| 09 6c 6f 77 43 68 61 72 | 2c 20 68 69 67 68 43 68 |.lowChar|, highCh|
|000002b0| 61 72 3b 0d 48 61 6e 64 | 6c 65 09 68 4b 43 48 52 |ar;.Hand|le.hKCHR|
|000002c0| 3b 0d 0d 09 69 66 20 28 | 65 76 74 2d 3e 77 68 61 |;...if (|evt->wha|
|000002d0| 74 20 3d 3d 20 6b 65 79 | 44 6f 77 6e 20 7c 7c 20 |t == key|Down || |
|000002e0| 65 76 74 2d 3e 77 68 61 | 74 20 3d 3d 20 61 75 74 |evt->wha|t == aut|
|000002f0| 6f 4b 65 79 29 0d 09 7b | 0d 09 09 69 66 20 28 65 |oKey)..{|...if (e|
|00000300| 76 74 2d 3e 6d 6f 64 69 | 66 69 65 72 73 20 26 20 |vt->modi|fiers & |
|00000310| 63 6d 64 4b 65 79 29 09 | 09 09 2f 2a 20 63 6d 64 |cmdKey).|../* cmd|
|00000320| 20 6b 65 79 20 69 73 20 | 64 6f 77 6e 20 2a 2f 0d | key is |down */.|
|00000330| 09 09 7b 0d 09 09 09 2f | 2a 20 66 69 6e 64 20 6f |..{..../|* find o|
|00000340| 75 74 20 41 53 43 49 49 | 20 65 71 75 69 76 61 6c |ut ASCII| equival|
|00000350| 65 6e 74 20 66 6f 72 20 | 6b 65 79 20 2a 2f 0d 09 |ent for |key */..|
|00000360| 09 09 76 69 72 74 75 61 | 6c 4b 65 79 20 3d 20 28 |..virtua|lKey = (|
|00000370| 65 76 74 2d 3e 6d 65 73 | 73 61 67 65 20 26 20 6b |evt->mes|sage & k|
|00000380| 4d 61 73 6b 56 69 72 74 | 75 61 6c 4b 65 79 29 20 |MaskVirt|ualKey) |
|00000390| 3e 3e 20 38 3b 0d 09 09 | 09 2f 2a 20 22 61 6e 64 |>> 8;...|./* "and|
|000003a0| 22 20 6f 75 74 20 63 6f | 6d 6d 61 6e 64 20 6b 65 |" out co|mmand ke|
|000003b0| 79 2c 20 22 6f 72 22 20 | 69 6e 20 74 68 65 20 76 |y, "or" |in the v|
|000003c0| 69 72 74 75 61 6c 20 6b | 65 79 20 2a 2f 0d 09 09 |irtual k|ey */...|
|000003d0| 09 6b 65 79 43 6f 64 65 | 20 3d 20 28 65 76 74 2d |.keyCode| = (evt-|
|000003e0| 3e 6d 6f 64 69 66 69 65 | 72 73 20 26 20 6b 4d 61 |>modifie|rs & kMa|
|000003f0| 73 6b 4d 6f 64 69 66 69 | 65 72 73 29 20 7c 20 76 |skModifi|ers) | v|
|00000400| 69 72 74 75 61 6c 4b 65 | 79 3b 0d 09 09 09 6b 65 |irtualKe|y;....ke|
|00000410| 79 43 49 64 20 3d 20 47 | 65 74 53 63 72 69 70 74 |yCId = G|etScript|
|00000420| 20 28 47 65 74 45 6e 76 | 69 72 6f 6e 73 20 28 73 | (GetEnv|irons (s|
|00000430| 6d 4b 65 79 53 63 72 69 | 70 74 29 2c 20 73 6d 53 |mKeyScri|pt), smS|
|00000440| 63 72 69 70 74 4b 65 79 | 73 29 3b 0d 09 09 09 68 |criptKey|s);....h|
|00000450| 4b 43 48 52 20 3d 20 47 | 65 74 52 65 73 6f 75 72 |KCHR = G|etResour|
|00000460| 63 65 20 28 27 4b 43 48 | 52 27 2c 20 6b 65 79 43 |ce ('KCH|R', keyC|
|00000470| 49 64 29 3b 0d 09 09 09 | 69 66 20 28 68 4b 43 48 |Id);....|if (hKCH|
|00000480| 52 20 21 3d 20 28 48 61 | 6e 64 6c 65 29 20 6e 69 |R != (Ha|ndle) ni|
|00000490| 6c 29 0d 09 09 09 7b 0d | 09 09 09 09 73 74 61 74 |l)....{.|....stat|
|000004a0| 65 20 3d 20 30 3b 0d 09 | 09 09 09 2f 2a 20 64 6f |e = 0;..|.../* do|
|000004b0| 6e 27 74 20 62 6f 74 68 | 65 72 20 6c 6f 63 6b 69 |n't both|er locki|
|000004c0| 6e 67 20 62 65 63 61 75 | 73 65 20 4b 65 79 54 72 |ng becau|se KeyTr|
|000004d0| 61 6e 73 20 64 6f 65 73 | 6e 27 74 20 6d 6f 76 65 |ans does|n't move|
|000004e0| 20 6d 65 6d 6f 72 79 20 | 2a 2f 0d 09 09 09 09 6b | memory |*/.....k|
|000004f0| 65 79 49 6e 66 6f 20 3d | 20 4b 65 79 54 72 61 6e |eyInfo =| KeyTran|
|00000500| 73 20 28 2a 68 4b 43 48 | 52 2c 20 6b 65 79 43 6f |s (*hKCH|R, keyCo|
|00000510| 64 65 2c 20 26 73 74 61 | 74 65 29 3b 0d 09 09 09 |de, &sta|te);....|
|00000520| 09 52 65 6c 65 61 73 65 | 52 65 73 6f 75 72 63 65 |.Release|Resource|
|00000530| 20 28 68 4b 43 48 52 29 | 3b 0d 09 09 09 7d 0d 09 | (hKCHR)|;....}..|
|00000540| 09 09 65 6c 73 65 0d 09 | 09 09 09 6b 65 79 49 6e |..else..|...keyIn|
|00000550| 66 6f 20 3d 20 65 76 74 | 2d 3e 6d 65 73 73 61 67 |fo = evt|->messag|
|00000560| 65 3b 0d 0d 09 09 09 6c | 6f 77 43 68 61 72 20 3d |e;.....l|owChar =|
|00000570| 20 6b 65 79 49 6e 66 6f | 20 26 20 6b 4d 61 73 6b | keyInfo| & kMask|
|00000580| 41 73 63 69 69 32 3b 0d | 09 09 09 68 69 67 68 43 |Ascii2;.|...highC|
|00000590| 68 61 72 20 3d 20 28 6b | 65 79 49 6e 66 6f 20 26 |har = (k|eyInfo &|
|000005a0| 20 6b 4d 61 73 6b 41 73 | 63 69 69 31 29 20 3e 3e | kMaskAs|cii1) >>|
|000005b0| 20 31 36 3b 0d 09 09 09 | 69 66 20 28 6c 6f 77 43 | 16;....|if (lowC|
|000005c0| 68 61 72 20 3d 3d 20 70 | 65 72 69 6f 64 20 7c 7c |har == p|eriod |||
|000005d0| 20 68 69 67 68 43 68 61 | 72 20 3d 3d 20 70 65 72 | highCha|r == per|
|000005e0| 69 6f 64 29 0d 09 09 09 | 09 72 65 74 75 72 6e 20 |iod)....|.return |
|000005f0| 28 74 72 75 65 29 3b 0d | 09 09 7d 0d 09 7d 0d 09 |(true);.|..}..}..|
|00000600| 72 65 74 75 72 6e 20 28 | 66 61 6c 73 65 29 3b 0d |return (|false);.|
|00000610| 7d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |}.......|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 02 72 | 00 00 01 72 00 00 00 46 |.......r|...r...F|
|00000690| 00 40 1f ff ff f0 00 00 | 00 40 3f ff ff f8 00 00 |.@......|.@?.....|
|000006a0| 00 80 7f ff ff f8 00 00 | 00 80 ff ff ff f8 00 00 |........|........|
|000006b0| 0f 53 6b 65 6c 43 6d 64 | 50 65 72 69 6f 64 2e 63 |.SkelCmd|Period.c|
|000006c0| 02 00 00 00 50 61 72 74 | 53 49 54 78 00 00 00 00 |....Part|SITx....|
|000006d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 a9 9f 75 8f 00 00 | 00 00 00 00 02 b8 0c 01 |....u...|........|
|00000700| 80 00 00 00 00 00 03 06 | 00 00 00 00 00 00 00 f8 |........|........|
|00000710| 00 00 00 00 00 00 00 04 | 00 00 00 00 00 1c 00 15 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 55 40 00 00 00 00 00 |........|.U@.....|
|00000740| 00 00 00 00 00 00 00 00 | 15 55 40 00 00 00 00 00 |........|.U@.....|
|00000750| 00 00 00 00 00 00 00 00 | 15 55 40 00 00 00 00 00 |........|.U@.....|
|00000760| 00 00 00 00 00 00 00 00 | 15 55 40 00 00 00 00 00 |........|.U@.....|
|00000770| 00 00 00 00 00 00 00 00 | 15 54 00 00 00 00 00 00 |........|.T......|
|00000780| 00 00 01 52 00 28 00 1e | 02 21 01 3c 00 18 00 00 |...R.(..|.!.<....|
|00000790| 01 ae 00 00 01 ae 00 00 | 00 00 00 04 00 09 00 00 |........|........|
|000007a0| 06 4d 6f 6e 61 63 6f 00 | 00 00 00 00 00 00 00 00 |.Monaco.|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 04 00 00 04 00 00 00 48 | 00 48 00 00 00 00 02 db |.......H|.H......|
|000007f0| 02 40 ff e7 ff ee 02 ff | 02 52 1f 03 05 28 03 fc |.@......|.R...(..|
|00000800| 00 01 00 00 01 2c 01 2c | 00 00 00 00 0b e7 09 60 |.....,.,|.......`|
|00000810| 01 2c 00 2d 05 a0 5e ec | 00 26 04 01 01 01 00 18 |.,.-..^.|.&......|
|00000820| 00 01 27 0f 00 01 00 01 | 00 00 00 00 00 00 00 00 |..'.....|........|
|00000830| 00 00 00 00 00 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 01 00 00 02 41 00 | 00 00 00 04 00 09 00 00 |......A.|........|
|00000860| 06 4d 6f 6e 61 63 6f 08 | 00 00 00 00 00 00 00 00 |.Monaco.|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 04 01 00 00 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 18 00 01 00 00 01 b1 |........|........|
|000008e0| 00 00 01 be 0d 53 6b 65 | 6c 43 6d 64 50 65 72 69 |.....Ske|lCmdPeri|
|000008f0| 6f 64 00 00 01 00 00 00 | 02 72 00 00 01 72 00 00 |od......|.r...r..|
|00000900| 00 46 00 3b 9c 74 11 a2 | 00 00 00 1c 00 46 00 01 |.F.;.t..|.....F..|
|00000910| 42 42 53 52 00 00 00 12 | 4d 50 53 52 00 00 00 1e |BBSR....|MPSR....|
|00000920| 01 03 ff ff 00 00 00 00 | 00 00 00 00 03 ef ff ff |........|........|
|00000930| 00 00 01 56 00 00 00 00 | 00 00 00 00 00 00 00 00 |...V....|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+